home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Open Prolog 1.0.3d23 / Samples / Drawing Demo / Open Prolog Startup < prev    next >
Encoding:
Text File  |  1992-05-25  |  173 b   |  10 lines  |  [TEXT/PRLG]
  1. :-['draw trial'].
  2. :-repeat,
  3. 'system$random'(300,Wr),
  4. 'system$random'(240,Hr),
  5. W is 300+Wr,
  6. H is 200+Hr,
  7. 'system$random'(400,Tr),
  8. T is Tr+100,
  9. trial(W,H,T),draw(2,0,0),fail.
  10.